home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998…eptember: Technology Seed / September 98 ADC Seed CD.toast / LaserWriter 8.6b5 Seed / LaserWriter 8.6b5 / PrintingLib / PrintingLib.rsrc / PS_-8126 < prev    next >
Encoding:
Text File  |  1998-08-12  |  728 b   |  62 lines
  1. %%BeginFile: lw8_safeclipL12-1.0                    
  2. /rectclip where
  3. {
  4. pop/rCa/rectclip ld
  5. }{
  6. /rCa
  7. {
  8. np 0
  9. 1 index length 4 idiv
  10. {
  11. 2 copy
  12. 4 getinterval
  13. aload pop
  14. 4 2 roll
  15. :M
  16. 1 index 0 rl
  17. 0 exch rl
  18. neg 0 rl
  19. :K
  20. 4 add
  21. }repeat
  22. clip np
  23. pop pop
  24. }bd
  25. }ifelse
  26. /savedstack Z
  27. /subsavedstack Z
  28. /execstring Z
  29. /saferCa
  30. {
  31. /execstring xs
  32. /odictstk countdictstack store
  33. /oopstk 0 store
  34. count 0 ne
  35. {
  36. savedstack 0 eq{
  37. count 100 gt{count}{100}ifelse
  38. array/savedstack xs
  39. }{
  40. count savedstack length gt
  41. {
  42. count array/savedstack xs
  43. }if
  44. }ifelse
  45. count savedstack 0 3 -1 roll
  46. getinterval
  47. astore/subsavedstack xs
  48. }{
  49. /subsavedstack 0 store
  50. }ifelse
  51. execstring cvx stopped
  52. {
  53. $error/newerror F put
  54. newpath
  55. }if
  56. fcl
  57. subsavedstack 0 ne{
  58. subsavedstack aload pop
  59. }if
  60. }bd
  61. %%EndFile
  62.